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AREA: Business NUMBER : | NAME: DEPRECIATE 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: This program shows how a piece of capital equipment 
depreciates according to three commonly used depreciation methods: 
straight line, sum of the digits, and double declining. 


120 PRINT “ORIGINAL COST"; 

1346 INPUT C 

144 PRINT “ LIFE OF ITEM"; 

150 INPUT L 

168 PRINT ™ SCRAP VALUE"'S 

174 INPUT S 

18@ PRINT 

1946 PRINT “YEAR"™s "STRAIGHT", "SUM OF"'s** DOUBLE" 
260 PRINT ™" "5s" LINE"s"DIGITS*s"* DECLINING" 
219 PRINT 

220 LET V=C-S 

230 LET D1=V/L 

240 LET Y=C(CL41)/2)*L 

25@ LET Z=L 


i 260 FOR X=1 TO L 


270 LET D@=V*eCZ/Y) 
280 LET Z=Z-1 

2980 LET D3=2*C/L 

386 LET C=C-D3 

318 PRINT Xs 

312 LET Q=D1 

314 GOSUB 442 

316 LET Q=D2 

318 GOSUB 460 

329 LET Q=D3 

322 GOSUB 4G¢ 

325 PRINT 

3308 NEXT X 

358 STOP 

490 LET Q=INTCQ*1800)/100 
420 IF Q>180@ THEN 44@ 
430 PRINT ™ "3 

446 IF 0>18 THEN 466 
450 PRINT ™ "5 

466 PRINT "S$"Q> 

498 RETURN 

999 END 


USAGE: Load the DEPRECIATE program and type RUN. Enter the purchase 
price of the item, its life in years, and its scrap value at the end 


of that time. 


RUN 


ORIGINAL COST? 1000 
LIFE OF ITEM? 5 
SCRAP VALUE? 106 


YEAR STRAI GHT 
LINE 

1 $ 180 

2 $ 189 

3 $ 180 

4 $ 184 

5 $ 186 
READY 
RUN 


ORIGINAL COST? 2006 
LIFE OF ITEM? 4 
SCRAP VALUE? 300 


YEAR STRAIGHT 
LINE 
1 $ 425 
2 $ 425 
3 $ 425 
A $ 425 
READY 


EDUCATIONAL BENEFITS: The study of "general business” is often just the 
study of a lot of tables in a textbook. 
involved in this work, since.he often doesn't understand what is behind 


SUM OF 
DIGITS 


38d 
246 
180 
126 
$ 68 


AAA SA 


SUM OF 
DIGITS 


$ 689 
$ 510 
$ 346 
$ 170 


DOUBLE 
DECLINING 


$ 400 

$ 248 

$ 144 
$ 86-4 
$ 51-84 


DOUBLE 
DECLINING 


$ 16800 
$ 500 
$ 258 
$ 125 


It's hard for a student to get 


these tables. The computer can bring many of these topics to life. 


Also, by having some exposure to a computer, the student learns to be 
comfortable with it. He will be much better prepared for work ina . 


modern business. 


Ne 


sed 


AREA: Business NUMBER ¢ NAME: FIFO 
SOURCE: Gregg Accounting, Advanced Course LANGUAGE: BASIC 
Gregg, McGraw-Hill, 2d edition (EduSystem 10) 


DESCRIPTION: This program demonstrates the First-in, First-out (FIFO) 
method of inventory evaluation that is used by many businesses. 


APPROACH: We read the beginning inventory from a DATA statement and put 
the quantity and price information into a simple array Q(X), P(X) . 

Each time units are removed from inventory we cycle through the array, 
removing items from inventory in the same order they were placed into the 
inventory. When zero units remain at one price, the next set of units 
are taken at the next price. This program accepts six sets of data in 
Line 40. 


EDUCATIONAL APPLICATIONS: Used to show how FIFO works. Change the price 
information in Line 40 (quantity, then price) to show the affect FIFO has 
on shipment values in terms of falling costs (example uses rising costs). 
Let your students rewrite the program for Last-in, First-out (LIFO) 


inventory evaluation. 


*Program is coded using multiple statements per line feature of certain 
EduSystems. 


LIST. 
1 REM ARK-FIFO 


2 FOR X=1 TO 6NREAD Q€X)9PCX\NEXT X\S=X-1 


6 GOSUB 26 \NPRINT “ENTER QUANTITY REMOVED"$ \INPUT WNPRINT “SHIPPED ouT” 
&S§ PRINT “NUMBER"s"“PRICEs *TOTAL” 


16 
12 
14 
16 
is 
20 
22 
24 
26 
28 
38 
32 
34 
36 
38 
49 


FOR X=1 TO SNIF Q¢€X3=6 THEN 18 

IF Q€X)-W>=0 THEN 34 

PRINT QCX) »PCX) » COCKI#PCX)) 

TI=T1l4+¢€ ACKI*PCXIINWVRWACXINACKI=B 

NEXT XNIF QC€X+1)9<=9 THEN 38 

PRINT “REMAINING INVENTORY'N\T=8 

PRINT “NUMBER"s “PRICE™s *TOTAL"™ 

FOR X=1 TO SNIF QCX3<=9 THEN 36 

PRINT OCX)2PCX)2CQOCKI*PCX) dD 

T=T+¢€ QCXI*PCX)) 

NEXT X 

PRINT “TOTAL VALUE ="T\PRINT \RETURN 

PRINT Ws POX) WePCXINTIST1+¢ We PCX) dD 

PRINT “SHIPPED VALUE="TINT1I=G\NQCX)=QCX}-W\GO TO 6 
PRINT “OUT OF INVENTORY"NPRINT “SHIPPED VALUE ="T1 
DATA 359 112255 609 12s 198s 18052 5Gs 1398 Bs 13653 405 14e25\END 


RUN 

REMAINING INVENTORY 

NUMBER PRICE TOTAL 
35 11.25 393075 
66 12 728 
106 1205 1258 
SO 13 659 
So 1365 1688 
9) 14.25 976 


TOTAL VALUE = 4663-75 


ENTER QUANTITY REMOVED? 109 


SHIPPED OUT 

NUMBER PRICE TOTAL 
35 11-25 393475 
60 12 129 
5 1205 62-5 
SHIPPED VALUE= 1176225 

REMAINING INVENTORY 

NUMBER PRICE TOTAL 
95 1225 1187-5 
red 4 13 656 
8O 135 1986 
AB 14225 ' $76 


TOTAL VALUE = 348745 


———. 


AREA: Business/Math NUMBER: NAME: INDIAN 
SOURCE: NREL/SDC LANGUAGE: BASIC 


DESCRIPTION: This program solves a simple interest problem which makes 
one think twice about the deal that the Dutch made with the Indians. 

If the $24 which the Indians received in 1626 for Manhattan Island had 
been deposited in a bank paying 5-3/4% interest compounded annually, 
what would it have amounted to by 1971? 


APPROACH: If P dollars are invested at an interest rate of r (expressed 
as a decimal) compounded n times, the total amount A is given by the 
formula: 


A = P(1 +r)” 


How much was gained in 1971 alone? 


1A LET P24 

2A LET R=eAS75 

3A LET N=1971-1626 

AQ LET A=P*CC1+R) tN) 

SA PRINT "IF THE $24 WHICH THE INDIANS RECEIVED IN 1626 FOR" 

60 PRINT "MANHATTAN ISLAND HAD BEEN DEPOSITED IN A BANK" 

70 PRINT "PAYING'R*1QGQ"% INTEREST COMPOUNDED ANNUALLYs IT WOULD" 
8A PRINT "HAVE AMOUNTED TO S"A™BY 1971+¢* 

99 END 


RF ADY 

RUN 

IF THE $24 WHICH THE INDIANS RECEIVED IN 1626 FOR 
MANHATTAN ISLAND HAD BEEN DEPOSITED IN A BANK 


PAYING 5-75 % INTEREST COMPOUNDED ANNUALLY» IT WOULD 
HAVE AMOUNTED TO $ 5e713946E+9 BY 1971-6 


READY 


AREA: Business, Math NUMBER: NAME: INT-1 
SOURCE : CAMP Algebra 1 DEC LANGUAGE : BASIC 


DESCRIPTION: This program illustrates how interest accumulates using 
compound interest methods as compared to using simple interest. 


Input principal, interest rate, and number of times compounded each year. 
For each year, the program calculates interest earnings. 


(1) assuming simple interest. 
(2) assuming interest is compounded. 


The computer will print your year end account balance each year for 10 
years. You should use even dollar figures for the principal amount to 
make it easier to "see" the difference. 


S REM PROGRAM INT-1 
140 REM SIMPLE AND QUARTERLY COMPUUND INTEREST 
14 PRINT "WHAT IS THE PRINCIPAL AMOUNT"S 
18 INPUT P 
22 PRINT “WHAT IS THE RATE OF INTEREST (XeXX)"'3 
26 INPUT R 
27 PRINT “COMPOUNDED HOW MANY TIMES PER YEAR'S 
©8 INPUT N 
3A LET R=R/1a00 
34 LET A=Px*R 
38 LET S=P+A 
4Q PRINT 
42 PRINT "YEAR", ""SIMPLE"s "COMPOUND" 
46 FOR Y=1 TO 14 
54 FOR X=1 TON 
S54 LET P=P*(1+R/N) 
5&8 NEXT xX 
62 PRINT YsSsP 
66 LET S=S+t+A 
7A NEXT Y 
74 PRINT 
7& GOTO 14 
99 END 


RUN 

WHAT IS THE PRINCIPAL AMOUNT? 1000 

WHAT IS THE RATE OF INTEREST (XeXX)? 5-25 
COMPOUNDED HOW MANY TIMES PER YEAR? 4 


._/ YEAR SIMPLE COMPOUND 


1 1A5e6<5 1953-543 
2 1105 1149-952 
3 1157-5 1169-382 
4 1219 1231-994 
5 1262-5 1297-958 
6 1315 1367-454 
7 1367¢5 1440-671 
8 1420 1517+8@8 
9 1472-5 1599e875 
1A [Seo 1684-694 


WHAT IS THE PRINCIPAL AMOUNT? 1080 
WHAT IS THE RATE OF INTEREST €XeXX)? 525 
COMPOUNDED HOW MANY TIMES PER YEAR? 365 


YEAR SIMPLE COMPOUND 
1 14525 1053-895 
2 1105 1116-695 
3 11575) 1174-555 
4 1216 1233-642 
5 12625 1300+129 
6 1315 1370+*199 
7 1367¢5 1444-946 
8 1420 1521-873 

( 9 14725 1643-894 
1A 1525 169A+-336 


WHAT IS THE PRINCIPAL AMOUNT? 1 
WHAT IS THE RATE OF INTEREST (€XeXXK)? 140 
COMPOUNDED HOW MANY TIMES PER YEAR? 1000 


YEAR SIMPLE COMPOUND 
1 2 2-716889 
1C 

READY 


EDUCATIONAL BENEFITS: The computer is used to demonstrate the advantages 
of interest compounding. By using different interest rates you can 
illustrate the importance of shopping around for a higher interest rate 
for your savings. 


, In the last example, we used a 100% (:) rate of interest and compounded 
it 1000 times per year. Try it compounding it 5000 times per year (run 
time will be in minutes). Does the compound interest amount begin to 
look like the constant "e"? Why? 


AREA: Business NUMBER: NAME: INT-2 
SOURCE: Huntington Computer Project LANGUAGE: BASIC 


DESCRIPTION: This program will calculate the balance of a savings 
account in which deposits are made regularly. Pick an amount of 
money to save each month and pick how many years you will save it 
and this program will tell you how much you will have at the end of 
that time. 


USAGE: In any class where thrift or savings is taught this program 
can be used to illustrate how quickly money can accumulate when you 
make regular savings deposits. You may also use this program to show 
how small differences in interest rates can make significant differ- 
ences in your interest earnings. 


4 PRINT “THIS PROGRAM WILL CALCULATE THE BALANCE OF A SAVINGS" 
5 PRINT “ACCOUNT IN WHICH DEPOSITS ARF MADE REGULARLY." 
6 PRINT 

7 PRINT “HOW MUCH WILL YOtl SAVE EACH MONTH" 

R INPUT A 

10 PRINT "HOW MANY INTEREST COMP OUND PERIODS EACH YEAR"'S 
12 INPUT B 

14 PRINT "AT WHAT RATE OF INTEREST (xx eX%)''S 

16 INPUT C 

18 PRINT “HOW MANY YEARS WILL YOU MAKE THIS SAVING"S 

19 INPUT DD - 

2A LET F=0A 


P1 LET A=A*C€12/B) 

ee LET E=(€C/1A@)/B 

P4 LET G=B*D 

P26 LET T1=A 

3A LET Ti=T1+! 

AA IF T1=G+1 THEN 134 

5A LET F=C1+E)*CF+A) 

64 GO TO 3A 

130 LET FHINTC1lLAAkF+e5)/1A00 
135 PRINT 

136 PRINT 

14A PRINT “AFTER"'D"'YEARS YOU WILL HAVE $"F 
145 PRINT 

146 PRINT 

15€@ GO TO 6 

999 END 


RUN 


THIS PROGRAM WILL CALCULATE THE BALANCE OF A SAVINGS 
ACCOUNT IN WHICH DEPOSITS ARE MADE REGULARLY. 


HOW MUCH WILL YOU SAVE EACH MONTH? 149 

HOW MANY INTEREST COMPOUND PERIODS EACH YEAR? 4 
AT WHAT RATE OF INTEREST (XX eX%2)? 5 

HOW MANY YEARS WILL YOU MAKE THIS SAVING? 5 


AFTER 5 YEARS YOU WILL HAVE $ 6853-5 


HOW MUCH WILL YOU SAVE EACH MONTH? 2a 

HOW MANY INTEREST COMPOUND PERIODS EACH YEAR? 2 
AT WHAT RATE OF INTEREST (XX +X2)? 5¢5 

HOW MANY YEARS WILL YOU MAKE THIS SAVING? 16 


AFTER 18 YEARS YOU WILL HAVE $ 3230-14 


HOW MUCH WILL YOU SAVE EACH MONTH? 14 

HOW MANY INTEREST COMPOUND PERIODS FACH YEAR? 365 
AT WHAT RATE OF INTEREST €XX%eX2Z)? 5 

HOW MANY YEARS WILL YOU MAKE THIS SAVING? 6 


AFTER 6 YFARS YOU WILL HAVE $ 839-69 


HOW MUCH WILL YOU SAVE EACH MONTH? 14 

HOW MANY INTEREST COMPOUND PERIODS EACH YEAR? 1 
AT WHAT RATE OF INTEREST €XXeX%Z)? 3275 

HOW MANY YEARS WILL YOU MAKE THIS SAVING? 6 


AFTER 6 YEARS YOU WILL HAVE $ 884-63 


AREA: Business/Math NUMBER: NAME: ROUNDOFF 
SOURCE: F. McPhetres, Hartford High School LANGUAGE: BASIC 


DESCRIPTION: 


Frequently, it is desirable to round off numbers to 2 
decimal places (cents), 0 decimal places (dollars), -2 
decimal places (hundreds of dollars), etc. If you wish 
to round off a decimal number in a program of your own, 
Simply insert the following line: 


LET R = INT (W*¥10tY+0.5)/(10+4Y) 


W is the number you wish to round off (or a variable 
which represents the number) while Y is the number of 
decimal places desired. That is, Y is 3 if you wish 
to round to the nearest thousandth, 2 to round to hun- 
dredths, 0 to round to the nearest whole number, -l to 
round to the nearest multiple of 10, etc. 


Below iS a program whose sole function is to round off 
decimal numbers. 


199 PRINT "WHAT NUMBER DO YOU WISH TO ROUND OFF"; 
110 INPUT N 

126 PRINT "TO HOW MANY PLACES"; 

130 INPUT Y 

140 PRINT 

150 LET A=INTCN*#101Y4005)/C19tY) 

1609 PRINT N "=" A "TO" Y "DECIMAL PLACES." 

170 PRINT 

184 GOTO 190 

199 END 


RUN 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 2 


56-8237 = 56-82 TO 2 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 1 


8-449 = &e4 TO 1 DECIMAL PLACES- 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? @ 


3°¢685 = 3-68 TO 2 DECIMAL PLACES-e 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 2 


3°67499 = 3-67 TO 2 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 2 


3°¢675@1 = 3-68 TO 2 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? @ 


2348 = 2348 TO @ DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? -1 


2348°¢6 = 2358 TO-1 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? -2 


2348-6 = 2390 TO-2 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? -3 


2348-6 = 2800 TO-3 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? -4 


2348-6 = 8 TO-4 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 3 


-2.3469 =-2-347 TO 3 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
TO HOW MANY PLACES? 4 


2 = 2 TO 4 DECIMAL PLACES. 


WHAT NUMBER DO YOU WISH TO ROUND OFF? 
tC 


56°A237 


8 e449 


3°¢685 


3°67499 


3°67561 


2348 


2348 6 


2348 6 


2348-6 


2348 «6 


“223469 


AREA: Business NUMBER: 8-501 NAME: SORT-1l 
SOURCE: Digital Equipment Corp. LANGUAGE: BASIC 


DESCRIPTION: In business data processing, it is frequently necessary 
to sort a list of data into order. For example, some 
lists must be sorted by age, zip code, weight, inventory 
level, etc. This program is one way in which sorting 
can be done. The problem is to read in 10 numbers as 
DATA and then print them out sorted from smallest to 
largest. 


APPROACH: In this type of problem, it is best to start with a flow- 
chart. 
READ 


UNORDERED 
DATA 


List 


Finished te aie’ of 
; ne. | 
(I= 9) NExT I @ 





Yes 




























: Reorder LET A= ELEMENT (T) 
e Face arr LET EEN cape 
pape EMENT (Tt 
lement 
No apr bas elemen ii ier cu eck 
On @ {as 
pass 
PRINT a 
ise trigger LET C=) 






~~ 


bes 


READY 


LIST 
2 DIM AC1A)5,1¢610) 
5S PRINT "RANDOMLY ORDERED DATA" 
1A FOR I=1 TO 104 
PA READ ACT) 
2A PRINT ACI); 
4A NEXT I 
SA LET C=aA 
S55 REM CHECK IF ALL ELEMENTS IN LIST ARE ORDERED 
6A FOR I=1 TO 9 
70 IF ACI+1)<ACI) THEN 200 
RA NEXT I 
85 REM C INDICATES IF AN ELEMENT WAS REORDERED 
9A IF C=@ THEN 380 
1A“@® GO TO 5A 
195 REM REORDER ONE FLEMENT 
2AA LET A=ACI) 
P1A LET ACTI=ACI41) 
PPA LET ACI+1)=2A 
230A LET C=1 
240A GO TO &A 
300 PRINT 
381 PRINT 
342 PRINT “ORDERED DATA" 
31€A FOR I=1 TO 14 
320A PRINT ACI)3$ 
330 NEXT I 
4QAA DATA 1055591393438 335732536 
999 END 


READY 
RUN 


RANDOMLY ORDERED DATA 
Aa 5S 1 9 4 8 3 7 2 6 


ORDERED DATA 
12 3 4 5 6 7 8 9 16 


READY 


460 DATA 6253643893 10043953 7335039538038 7 
RUN 


RANDOMLY ORDERED DATA 
62 64 89 100® 95 73 SA 95 80 87 


ORDERED DATA : 
5A 62 64 73 RA 87 BD 95 95 1BA 


READY 


AREA: Business NUMBER: 
SOURCE: Computer Methods in Mathematics 


DESCRIPTION: Given a list of eight numbers: 75, 


52, 66, 67, 72, 75, 83, 83, 99 


NAME: SORT-2 


LANGUAGE : 


83, 67, 
83, 72. Sort the numbers into increasing order, left to right. 


52, 99, 66, 


Let the computer do it. A program and RUN are shown on the following 


page. Examine them. 


How does the program work? Add the following statements and RUN the 


program. The printout will show you the status of the list after Lines 


420 through 480 have been carried out for I = 1, then I 


AT2 PRINT “T=e"sTs"LIST S's 
477 GOSUB Raa 
5A5 PRINT 


2 and so on. 


using the modified program, including Lines 473, 477, and 505. 


(1) 2 Ls 3, 4, Sy 6, 7% 8 (2) 14 2s 3.5 


If you need more evidence, delete Lines 473, 477, 
following Lines and RUN the program for the above 


415 PRINT “FOR I="3713"Anp" 
“ATA PRINT “J="s Js"LIST S's 
471 GOSUB gaa 

A472 NEXT J 


4, 
(3) 4, 3, 2, 1, 5, 6. 7. 8, (4) 8, 7, 6, 5, 4, 


lists. 


3, 


and 505, 


5, 6, 8, 7 
2, 1 


then add the 


BASIC 


ca? 


a 
The original list of numbers is in Line 901. To sort a different list of 
eight numbers, simply change Line 901. Try it for the following lists, 


} 


1AA REMARK SORT EIGHT NUMBERS 

114 PRINT "THIS PROGRAM SORTS A LIST OF EIGHT NUMBERS INTO" 
120A PRINT "INCREASING ORDER AND PRINTS THE FINAL LIST WITH" 
134A PPINT ""THE SMALLEST NUMBER FIRST AND LARGEST LAST" 
140A PRINT 

LAR PEMARK READ EIGHT NUMBERS INTO x(1), KXCO) ve ee sX(K) 
P1A DIM x¥~C 1A) | 

PPA FOR K=1 TO & 

PAA PFAD xX¥CK) 

PAA NFXT K 

BAA RFMARK PRINT THF ORIGINAL CUNSORTED) LIST 

321A PRINT "UNSORTED LIST at 

322A GCOSUR RgAA 

232A PRINT 

4AA REMARK SORT THF NUMBERS 

4104 FOR Y=! TO 7 

420A FOR J=I+1 TO & 

430 IF x¢€Tl) <= xXCJ) THEN 470 

4S4A LET T=xKCT1) 

ASA LEFT xCI)=KcJ) 

A6A LET XC J)=T 

ATA NEXT J 

ARA NEXT J 

SAM REMARK PRINT THE FINAL CSORTED) LIST 

514A PRINT "SORTED LIST ae 

52A GOSUR RAA 

53a STOP 

RAA REMARK SUBROUTINE TO PRINT x€1)>, XCOge ce ors X(K) 
RiA FOR K=1 TO & 

RPA PRINT XCK); 

R3A NEXT K 

RAA PRINT 

RSA PFTUPRN 

9AA REFMARK HERE TS THE ORIGINAL LIST OF NUMBERS 

91A DATA 7558325673523995665R3572 

999 FND 


RUN 


THIS PROGRAM SORTS A LIST OF EIGHT NUMBERS INTO 
INCREASING ORDER AND PRINTS THE FINAL LIST WITH 
THE SMALLEST NUMBER FIRST AND LARGEST LAST 


UNSORTED LIST 75 83 67 52 99 66 83 72 
SORTED LIST S92 66 67 72 $75 83 83 99 
READY 


Note: If you have trouble fitting the program into EDUSYSTEM 10, delete 
lines 100, 110, 120, 130, 200, 300, 400, 500 and 900. But don't 


delete Line 800. 


AREA: Social Studies NUMBER : : NAME: POPULATION 
SOURCE: Gruenberger and Jaffray LANGUAGE: BASIC 
Problems for Computer Solution, Wiley 


DESCRIPTION: This program solves the following problem: 

Assume that in 1960 the population figures for the United States and 
Mexico were 180,000,000 and 85,000,000 respectively. Assume also that 
the annual rate of growth for the United States in 1.23%, and that for 
Mexico, 2.23%. If these growth rates remain constant, in what year will 
the population of Mexico equal or exceed that of the United States 


1A LET U=18AAHAAAA 
2A LET M=85AGAABA 
3A LET R1=1+«A123 
4A LET RO=14¢A223 
54 LET Y=1960 

60 LET U=U*R1 

7A LET M=M*R? 

RA LET Y=Y+!1 

9A IF M<U THEN 64 
127A PRINT “tleSe POPULATION IS"U"'AND MEXICO IS*M"IN'y 
999 END 


RUN 
UeSe POPULATION IS 4-614A66E+8 AND MEXICO IS 4-644644E+8 IN 2437 


Modify the problem to take into account that the U.S. growth rate in- 


creases 0.01% each year and that of Mexico increases by 0.001% each year. 


Will the population of Mexico under these circumstances ever exceed that 
of the United States? 


6A LET U=U*C1-A1*R1) 

7A LET M=M*C1-AA1*RO) 

85 IF Y>1AAHA THEN 129 

114 STOP 

1°20 PRINT "UeSe STILL HAS MORE PEOPLEs"U"THAN MEXICOs'M'IN 1000@0-" 


RUN 


27? 


=, ’ 


Consider similar data as the first case for the U.S. (180,000,000) and 
California (15,700,000) for 1960, and growth rates of 1.23% and 3.70%. 
Applying the same routine, we would find a year in which the popula- 
tion of California exceeded the population of the United States, which 
is nonsense. Where is the discrepency? 


Or try this version of the problem. In 1963, the United States con- 
sumption of motor fuel was 64,000,000 gallons, increasing by 4 percent 
per year. The consumption in California was 6,000,000, increasing 5.4 
percent per year. In what year will California consume more than the 
United States. 


EDUCATIONAL BENEFIT: The principle illustrated by the last two exer- 
cises is that of GIGO - "garbage in, garbage out." If the problem de- 
finition is intrinsically nonsensical, then the application of the 


_computer to it will add no sense. Blaming the nonsensical result, then, 


on the computer is not fair, but we see examples of it frequently. 


The last problem could make sense if we ask in what year the consumption 
of fuel in California exceeds that of the remainder of the United States, 
if ever? 


AREA: Social Studies NAME : SMOG 
SOURCE: David H. Ahl, DEC LANGUAGE: BASIC 


This program is an adaptation of the Smog Model written by Herbert Peckham 
of Gavilan College, Gilroy, California. The model assumes that vehicular 
traffic is the sole producer of smog (a very bad assumption:), and also 
assumes that most automobile traffic occurs during the daylight hours 

and that traffic volume is very low (zero) at night. It further assumes 
that smog is dissipated by atmospheric conditions which vary depending 
upon sunlight, temperature, and weather. All of these conditions may 

be specified by the user. 


The model could be improved significantly by taking into account other ©, 

; : ) 
sources of smog, by varying vehicular traffic according to the hour ‘ager? 
of the day and by allowing daily variation of the weather factors. Never- 
theless, in its current form it is quite instructive. 


NOTE: A plot of smog values is produced in Statements 320 and 340. In 

the listing, the smog value, S, is multiplied by 2 for the plot. Under 
some conditions, the value of smog reaches 30 or 40 which, when multiplied 
by 2 is 60 to 80, a value greater than the width of the paper. The 
Simplest solution is to simply print out the table of smog values with 

no plot; a more elegant solution would be to estimate the maximum value 
from the input factors and calculate an appropriate plotting multiplication 
factor. 
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MAIN OFFICE AND PLANT 


146 Main Street, Maynard, Massachusetts, U.S.A. 01754 * Telephone: From Metropolitan Boston: 646-8600 « Elsewhere: (617)-897-5111 
TWX: 710-347-0212 Cable: DIGITAL MAYN Telex: 94-8457 
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NORTHEAST 

REGIONAL OFFICE: 

275 Wyman Street, Waltham, Massachusetts 02154 
Telephone: (617)-890-0320/0330 TWX: 710-324-6919 
WALTHAM 

15 Lunda Street, Waltham, Massachusetts 02154 
Telephone: (617)-891-1030 TWX: 710-324-6919 


CAMBRIDGE/BOSTON 
899 Main Street, Cambridge, Massachusetts 02139 
Telephone: (617)-491-6130 | TWX: 710-320-1167 


ROCHESTER 
130 Allens Creek Road, Rochester, New York 14618 
Telephone: (716)-461-1700 TWX: 710-253-2078 


CONNECTICUT 
240 Pomeroy Avenue, Meriden, Connecticut 06450 
Telephone: (203)-237-8441 /7466 TWX: 710-461-0054 


MID-ATLANTIC — SOUTHEAST 
REGIONAL OFFICE: 

U.S. Route 1, Princeton, New Jersey 08540 
Telephone: (609)-452-2940 TWX: 510-685-2338 


NEW YORK 4 

95 Cedar Lane, Englewood, New Jersey 07631 
Telephone: (201)-871-4984, (212)-594-6955, (212)-736-0447 
TWX: 710-991-9721 


NEW JERSEY 
1259 Route 46, Parsippany, New Jersey 07054 
Telephone: (201)-335-3300 | TWX: 710-987-8319 


PRINCETON 

U.S. Route 1 

Princeton, New Jersey 08540 

Telephone: (609) 452-2940 TWX: 510-685-2338 


LONG ISLAND 

1 Huntington Quadrangle 

Suite 1SO7 Huntington Station, New York 11746 
Telephone: (516)-694-4131, (212)-895-8095 
PHILADELPHIA 

Station Square Three, Paoli, Pennsylvania 19301 
Telephone: (215)-647-4900/4410 Telex: 510-668-8395 


EUROPEAN HEADQUARTERS 

Digital Equipment Corporation International Europe 
81 Route de |'Aire 

1211 Geneva 26, Switzerland 


Telephone: 42 7950 Telex: 22 683 
FRANCE 

Equipment Digital S.A.R.L. 

PARIS 


327 Rue de Charenton, 75 Paris 12 ®“£, France 
Telephone: 344-76-07 Telex: 21339 

GRENOBLE 

10 rue Auguste Ravier, F-38 Grenoble, France 
Telephone: (76) 87 56 01/02 Telex: 32 882 F (Code 212) 


GERMAN FEDERAL REPUBLIC 
Digital Equipment GmbH 

MUNICH 

8 Muenchen 13, Wallensteinplatz 2 
Telephone: 0811-35031 Telex: 524-226 
COLOGNE 

5 Koein 41, Aachener Strasse 311 
Telephone: 0221-40 4495 Telex: 888-2269 
Telegram: Flip Chip Koeln 

FRANKFURT 

6078 Neu-lsenburg 2 

Am Forsthaus Gravenbruch 5-7 
Telephone: 06102-5526 Telex: 41-76-82 
HANNOVER 

3 Hannover, Podbielskistrasse 102 


Telephone: 0511-69-70-95 Telex: 922-952 
AUSTRIA 

Digital Equipment Corporation Ges.m.b.H. 
VIENNA 


Mariahilferstrasse 136, 1150 Vienna 15, Austria 
Telephone: 85 51 86 


UNITED KINGDOM 

Digital Equipment Co., Ltd. 

U.K. HEADQUARTERS 

Arkwright Road, Reading, Berks. 

Telephone: 0734-583555 Telex: 84327 
READING 

The Evening Post Building, Tessa Road 

Reading, Berks. 

Fountain House 

Butts Centre 

Reading, RG1 7QN 

Telephone: Reading 583555 

Telex: 84328 

BIRMINGHAM 

29/31, Birmingham Road, Sutton Coldfield, Warwicks. 
Telephone: (0044) 21-355 5501 Telex: 337 060 
MANCHESTER 

13 Upper Precinct, Walkden, Manchester M28 5AZ 
Telephone: 061-790-8411 Telex: 668666 
LONDON 

Bilton House, Uxbridge Road, Ealing, London W.5. 
Telephone: 01-579-2334 Telex: 22371 
EDINBURGH 

Shiel House, Craigshill, Livingston, 

West Lothian, Scotland 

Telephone: 32705 Telex: 727113 


MID-ATLANTIC — SOUTHEAST (cont.) 
WASHINGTON 

Executive Building 

6811 Kenilworth Ave.,"Riverdale, Maryland 20840 
Telephone: (301)-779-1600/ 752-8797 TWX: 710-826-9662 


DURHAM/CHAPEL HILL 

2704 Chapel Hill Boulevard 

Durham, North Carolina 27707 

Telephone: (919)-489-3347 TWX: 510-927-0912 


ORLANDO 
Suite 130, 7001 Lake Ellenor Drive, Orlando, Florida 32809 
Telephone: (305)-851-4450 TWX: 810-850-0180 


ATLANTA 

2815 Clearview Place, Suite 100, 
Atlanta, Georgia 30340 

Telephone: (404)-451-3734/3735/3736 


KNOXVILLE 
6311 Kingston Pike, Suite 21E 
Knoxville, Tennessee 37919 
Telephone: (615)-588-6571 


TWX: 810-757-4223 


TWX: 810-583-0123 


CENTRAL 

REGIONAL CFFICE: 

1850 Frontage Road, Northbrook, Illinois 60062 
Telephone: (312)-498-2500 TWX: 910-686-0655 


PITTSBURGH 

400 Penn. Center Boulevard 

Pittsburgh, Pennsylvania 15235 

Telephone: (412)-243-9404 | TWX: 710-797-3657 


CHICAGO 
1850 Frontage Road, Northbrook, IIlinois 60062 
Telephone: (312)-498-2500 | TWX: 910-686-0655 


ANN ARBOR 
230 Huron View Boulevard, Ann Arbor, Michigan 48103 
Telephone: (313)-761-1150 | TWX: 810-223-6053 


DETROIT 

23777 Greenfield Road, Suite 189 
Southfield, Michigan 48075 
Telephone: (313)-559-6565 


CENTRAL (cont.) 
INDIANAPOLIS 

21 Beachway Drive — Suite G 
Indianapolis, Indiana 46224 
Telephone: (317)-243-8341 
MINNEAPOLIS 

Suite 111, 8030 Cedar Avenue South, 
Minneapolis, Minnesota 55420 
Telephone: (612)-854-6562-3-4-5 
CLEVELAND 

Park Hill Building, 35104 Euclid Avenue 
Willoughby, Ohio 44094 

Telephone: (216)-946-8484 | TWX: 810-427-2608 


CENTRAL REGION CATEGORY 


KANSAS CITY 

532 East 42nd St., Independence, Missouri 64055 
Telephone: (816)-461-3440 TWX: 816-461-3100 

ST. LOUIS 

Suite 110, 115 Progress Parkway, Maryland Heights, 
Missouri 63043 
Telephone: (314)-878-4310 
DAYTON 

3101 Kettering Boulevard, Dayton, Ohio 45439 
Telephone: (513)-294-3323 TWX: 810-459-1676 
MILWAUKEE 

8531 W. Capitol Drive, Milwaukee, Wisconsin 53222 
Telephone: (414)-463-9110 TWX: 910-262-1199 
DALLAS 

8855 North Stemmons Freeway, Dallas, Texas 75247 
Telephone: (214)-638-4880 TWX: 910-861-4000 
HOUSTON 

3417 Milam Street, Suite A, Houston, Texas 77002 
Telephone: (713)-524-2961 TWX: 910-881-1651 
NEW ORLEANS 

3100 Ridgelake Drive, Suite 108 

Metairie, Louisiana 70002 

Telephone: 504-837-0257 


WEST 

REGIONAL OFFICE: 

310 Soquel Way, Sunnyvale, California 94086 
Telephone: (408)-735-9200 


TWX: 810-341-3436 


TWX: 910-576-2818 


TWX: 910-764-0831 


INTERNATIONAL 
NETHERLANDS CANADA (cont.) 
THE HAGUE OTTAWA 


Digital Equipment N.V. 

Sir Winston Churchilllaan 370 
Rijswijk/The Hague, Netherlands 
Telephone: 070-995-160 Telex: 32533 


BELGIUM 
BRUSSELS 
Digital Equipment N.V./S.A. 
108 Rue D’Arlon 

1040 Brussels, Belgium 
Telephone: 02-139256 


SWEDEN 

Digital Equipment AB 

STOCKHOLM 

Englundavagen 7, 171 41 Solna, Sweden 
Telephone: 98 13 90 Telex: 170 50 
Cable: Digital Stockholm 


NORWAY 

Digita! Equipment Corp. A/S ~ 
OSLO 

Trondhe.msveien 47 


Oslo 5, Norway 
Telephone: 02/68 34 40 


DENMARK 


Digital Equipment Aktiebolag 
COPENHAGEN 

Hellerupveg 66 

2900 Hellerup, Denmark 


SWITZERLAND 


Digital Equipment Corporation S.A. 
GENEVA 

81 Route de |'Aire 

1211 Geneva 26, Switzerland 
Telephone: 42 79 50 Telex: 22 683 
ZURICH 

Scheuchzerstrasse 21 

CH-8006 Zurich, Switzerland 
Telephone: 01/60 35 66 Telex: 56059 


ITALY 
Digital Equipment S.p.A. 
MILAN 


Corso Garibaldi 49, 20121 Milano, Italy 
Telephone: 872 748 694 394 Telex: 33615 


SPAIN 

MADRID 

Ataio Ingenieros S.A., Enrigue Larreta 12, Madrid 16 
Telephone: 215 35 43 Telex: 27249 

BARCELONA 

Ataio Ingenieros S.A., Ganduxer 76, Barcelona 6 
Telephone: 221 44 66 

Digital Equipment Corporation Ltd. 


CANADA 
Digital Equipment of Canada, Ltd. 
CANADIAN HEADQUARTERS 


150 Rosamond Street, Carleton Place, Ontario 
Telephone: (613)-257-2615 TWX: 610-561-1651 


Telex: 25297 


Telex: 19079 DEC N 


120 Holland Street, Ottawa 3, Ontario K1Y 0X7 
Telephone: (613)-725-2193 TWX: 610-562-8907 
TORONTO 

230 Lakeshore Road East, Port Credit, Ontario 
Telephone: (416)-274-1241 TWX: 610-492-4306 
MONTREAL 

9675 Cote de Liesse Road 

Dorval, Quebec, Canada 760 

Telephone: 514-636-9393 TWX: 610-422-4124 
CALGARY /Edmonton 

Suite 140, 6940 Fisher Road S.E. 

Calgary, Alberta, Canada 
Telephone (403)-435-4881 
VANCOUVER 

Digital Equipment of Canada, Ltd. 

2210 West 12th Avenue 

Vancouver 9, British Columbia, Canada 
Telephone: (604)-736-5616 TWX: 610-929-2006 


GENERAL INTERNATIONAL SALES 


REGIONAL DISTRICT OFFICE 
146 Main Street, Maynard Massachusetts 01754 
Telephone: (617) 897-5111 

From Metropolitan Boston 646-8600 
TWX: 710-347-0217/0212 
Cable: DIGITA MAYN 
Telex: 94-8457 


AUSTRALIA 

Digital Equipment Australia Pty. Ltd. 
SYDNEY 

P.O. Box 491, Crows Nest 

N.S.W. Australia 3065 
Telephone: 439-2566 
Cable: Digital, Sydney 
MELBOURNE 

60 Park Street, South Melbourne, Victoria, 3205 
Telephone: 69-6142 Telex: AA40616 

PERTH 

643 Murray Street 

West Perth, Western Australia 6005 

Telephone: 21-4993 Telex: AA92140 
BRISBANE 

139 Merivale Street, South Brisbane 
Queensland, Australia 4101 

Telephone: 44-4047 Telex: AA40616 
ADELAIDE 

6 Montrose Avenue 

Norwood, South Australia 5067 


TWX: 610-831-2248 


Ex. 2729 


Telex: AA20740 


Telephone: 63-1339 Telex: AA82825 
NEW ZEALAND 

Digital Equipment Corporation Ltd. 
AUCKLAND 


Hilton House, 430 Queen Street, Box 2471 
Auckland, New Zealand 
Telephone: 75533 


JAPAN 


Digital Equipment Corporation International 
TOKYO 

Kowa Building No. 17, Second Floor 

2-7 Nishi-Azabu 1-Chome 

Minato-Ku, Tokyo, Japan 


Telephone: 404-5894/6 Telex: TK-6428 


WEST (cont.) 

ANAHEIM 

801 E. Ball Road, Anaheim, California 92805 
Telephone: (714)-776-6932/8730 | TWX: 910-591-1189 
WEST LOS ANGELES 

1510 Cotner Avenue, Los Angeles, California 90025 
Telephone: (213)-479-3791/4318 | TWX: 910-342-6999 
SAN DIEGO 

6154 Mission Gorge Road, Suite 110 

San Diego, California 92120 
Telephone: (714)-280-7880, 7970 
SAN FRANCISCO 

1400 Terra Bella, Mountain View, California 94040 
Telephone: (415)-964-6200 TWX: 910-373-1266 

PALO ALTO 

560 San Antonio Road, Palo Alto, California 94306 
Telephone: (415)-969-6200 TWX: 910-373-1266 
OAKLAND 

7850 Edgewater Drive, Oakland, California 94621 
Telephone: (415) 635-5453/7830 TWX: 910-366-7238 
ALBUQUERQUE 

6303 Indian School Road, N.E., Albuquerque, N.M. 87110 
Telephone: (505)-296-5411/5428 § TWX: 910-989-0614 
DENVER 

2305 South Colorado Boulevard, Suite #5 

Denver, Colorado 80222 

Telephone: (303)-757-3332/758-1656/ 758-1659 

TWX: 910-931-2650 

SEATTLE 

1521 130th N.E., Bellevue, Washington 98005 
Telephone: (206)-454-4058 / 455-5404 TWX: 910-443-2306 
SALT LAKE CITY 

431 South 3rd East, Salt Lake City, Utah 84111 
Telephone: (801)-328-9838 TWX: 910-925-5834 
PHOENIX 

4358 East Broadway Road, Phoenix, Arizona 85040 
Telephone: (602)-268-3488 TWX: 910-950-4691 
PORTLAND 

Suite 168 

5319 S.W. Canyon Court, Portland, Oregon 97221 
Telephone: (503)-297-3761 /3765 


TWX: 910-335-1230 


JAPAN (cont.) 

Rikei Trading Co., Ltd. (sales only) 
Kozato-Kaikan Bldg. 

No. 18-14, Nishishimbashi 1-chome 
Minato-Ku, Tokyo, Japan 

Telephone: 5915246 Telex: 781-4208 


PUERTO RICO 

Digital Equipment Corporation de Puerto Rico 
American Airlines Bldg. 

804 Ponce De Leon, Miramar, Puerto Rico 
Telephone: 809-723-8068 /67 Telex: 385-9056 


ARGENTINA 


BUENOS AIRES 
Coasin S.A. 
Virrey del Pino 4071, Buenos Aires 


Telephone: 52-3185 Telex: 012-2284 
BRASIL 

RIO DE JANEIRO — GB. 

Ambriex S.A. 


Rua Ceara, 104, 2.° e 3.° andares 
Fones: 221-4560/44, 252-9873 
Cable: RAIOCARDIO 


SAO PAULO — SP 

Ambriex S.A. 

Rua Tupi, 535 

Fones: 51-0912; 52-0655; 52-7806 
Cable: RAIOCARDIO 


PORTO ALEGRE — RS 
Ambriex S.A. 

Rua Cel. Vicente, 421, 1.° andar 
Fones: 24-7411; 24-7696 

Cable: 


CHILE 

SANTIAGO 

Coasin Chile Ltda. (sales only) 

Casilla 14588, Correo 15, Santiago 
Telephone: 396713 Cable: COACHIL 


INDIA 

BOMBAY 

Hinditron Computers Pvt. Ltd. 
69/A, L. Jagmohandas Marg. 
Bombay-6 (W.B.), India 
Telephone: 38-1615; 36-5344 
Cable: Tekhind 


Telex: 011-2594 Plenty 


MEXICO 

MEXICO CITY 
Mexitek, S.A. 
Eugenia 408 Deptos. 1 
Apdo. Postal 12-1012 
Mexico 12, D.F. 


PHILIPPINES 

Stanford Computer Corporation 

P.O. Box 1608 

416 Dasmarinas St., Manila 
Telephone: 49-68-96 Telex: 742-0352 
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